0 REM DOKE & DEEK (AUG 24/84)         :
1 :
2 REM  1 STATEMENT,  1 FUNCTION
3 :
4 REM KEYWORD CHARACTERS:  9
5 :
6 REM KEYWORD     ROUTINE  LINE   SER #
7 REM S/DOKE      DOK      2636    007
8 REM F/DEEK(     DEEK     2674    008
9 :
10 REM U/USFP (2620/006)
11 :
12 REM ================================
13 :
102 .ASC "DOK[197]"
601 .ASC "DEEK[168]"
1102 .WORD DOK-1
1601 .WORD DEEK-1
2620 USFP LDX #0 
2622 STX $0D     
2624 STA $62     
2626 STY $63     
2628 LDX #$90    
2630 SEC         
2632 JMP $BC49
2634 ;
2636 DOK JSR $AD8A 
2638 JSR $B7F7     
2640 JSR $AEFD     
2642 LDA $14       
2644 STA T3        
2646 LDA $15
2648 STA T4
2650 JSR $AD8A     
2652 JSR $B7F7     
2654 LDA $14       
2656 LDY #0        
2658 SEI           
2660 STA (T3),Y    
2662 LDA $15       
2664 INY           
2666 STA (T3),Y    
2668 CLI           
2670 RTS
2672 ;
2674 DEEK JSR $AEF4 
2676 JSR $AD8D      
2678 JSR $B7F7      
2680 LDY #1         
2682 LDA ($14),Y    
2684 PHA
2686 DEY            
2688 LDA ($14),Y    
2690 TAY
2692 PLA
2694 JMP USFP       
2696 ;